(tags-table-check-computed-list): Map tags-expand-table-name over lists of

included tables.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 6d4dc28c674cdd60953776436d94e86981d38fe3..8650a995dd4d740627974b7b9c5f8a280d648c31 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -237,8 +237,9 @@ file the tag was in."
                  (if (tags-included-tables)
                      ;; Insert the included tables into the list we
                      ;; are processing.
-                     (setcdr tables (append (tags-included-tables)
-                                            (cdr tables)))))
+                     (setcdr tables (nconc (mapcar 'tags-expand-table-name
+                                                   (tags-included-tables))
+                                           (cdr tables)))))
              ;; This table is not in core yet.  Insert a placeholder
              ;; saying we must read it into core to check for included
              ;; tables before searching the next table in the list.